home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / MM3Tp.sea Folder / Made by Marksman / Sources / u / About_Demo.p next >
Text File  |  1994-01-16  |  3KB  |  136 lines
  1.  
  2. unit UAbout_Demo;
  3. {  About_Demo                                 Handle this dialog }
  4. {  Copyright © 1994 George R. Cossey }
  5.  
  6. {    File name:  About_Demo
  7.     Function:  Handle this modeless dialog.
  8.  
  9.     This dialog is called when:
  10.  
  11.     History: 1/16/94 Original by George Cossey
  12.  
  13. }
  14.  
  15. interface
  16.  
  17.     uses
  18.         Printing, Folders, Sound,mmCommonMM_Demo,CommonMM_Demo;
  19.  
  20. { ======================================================= }
  21. { ======================================================= }
  22.  
  23. { Init the modeless dialog }
  24. procedure U_Init_About_Demo;
  25.  
  26. { Moved the modeless dialog }
  27. procedure U_Moved_About_Demo(theDialog:DialogPtr;OldRect:Rect);
  28.  
  29. { Update the modeless dialog }
  30. procedure U_Update_About_Demo(theDialog:DialogPtr);
  31.  
  32. { Setup the modeless dialog }
  33. procedure U_Setup_About_Demo(theDialog:DialogPtr);
  34.  
  35. { Close the modeless dialog }
  36. procedure U_Close_About_Demo(theDialog:DialogPtr);
  37.  
  38. { Hit in the modeless dialog }
  39. procedure U_Hit_About_Demo(theDialog:DialogPtr;var itemHit:integer;var ExitDialog:Boolean;var theEvent:EventRecord);
  40.  
  41. { ======================================================= }
  42. { ======================================================= }
  43.  
  44. implementation
  45.  
  46. { ======================================================= }
  47. { ======================================================= }
  48.  
  49. { Routine: U_Init_About_Demo }
  50. { Purpose: This routine is called while when the program is first run }
  51. { This is used for onetime initialization }
  52.  
  53. procedure U_Init_About_Demo;
  54.  
  55.  
  56. begin
  57.  
  58. end;
  59.  
  60. { ======================================================= }
  61.  
  62. { Routine: U_Moved_About_Demo }
  63. { Purpose: This routine is called when our window gets moved on the screen, }
  64. { or to another screen }
  65.  
  66. procedure U_Moved_About_Demo(theDialog:DialogPtr;OldRect:Rect);
  67.  
  68.  
  69. begin
  70.  
  71. end;
  72.  
  73. { ======================================================= }
  74.  
  75. { Routine: U_Update_About_Demo }
  76. { Purpose: This routine is called when our window gets an update event }
  77.  
  78. procedure U_Update_About_Demo(theDialog:DialogPtr);
  79.  
  80.  
  81. begin
  82.  
  83. end;
  84.  
  85. { ======================================================= }
  86.  
  87. { Routine: U_Setup_About_Demo }
  88. { Purpose: This routine is called when our modeless dialog is opened }
  89.  
  90. procedure U_Setup_About_Demo(theDialog:DialogPtr);
  91.  
  92.  
  93. begin
  94.  
  95. end;
  96.  
  97. { ======================================================= }
  98.  
  99. { Routine: U_Close_About_Demo }
  100. { Purpose: This routine is called when our modeless dialog is closed }
  101.  
  102. procedure U_Close_About_Demo(theDialog:DialogPtr);
  103.  
  104.  
  105. begin
  106.  
  107. end;
  108.  
  109. { ======================================================= }
  110.  
  111. { Routine: U_Hit_About_Demo }
  112. { Purpose: Hit in the modeless dialog }
  113.  
  114. procedure U_Hit_About_Demo(theDialog:DialogPtr;var itemHit:integer;var ExitDialog:Boolean;var theEvent:EventRecord);
  115. var
  116.     DType:integer;                                    { Type of dialog item }
  117.     DItem:Handle;                                    { Handle to the dialog item }
  118.     CItem:ControlHandle;                            { Control handle }
  119.     theSelection:integer;                            { Palette selection }
  120.  
  121.  
  122. begin
  123.  
  124.  
  125. { This is the default selection, when RETURN is pressed. }
  126. if (itemHit = ResD_OK) then            { Handle the Button, OK, being pressed }
  127.     begin
  128.     end;
  129.  
  130.  
  131. end;
  132.  
  133. { ======================================================= }
  134. { ======================================================= }
  135. end.
  136.